home *** CD-ROM | disk | FTP | other *** search
/ Power Disk 64 1998 4 / Power_Disk_64_98-04_1998_Lagune_de_Side_B.d64 / witze (4) (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  1KB  |  30 lines
  1. 1 print"[147]":poke53280,6:poke53281,3
  2. 2 print"[145]             [215][201][212][218][197] - [212]eil 4             "
  3. 3 print"1. [201]n der [211]chule fragt der [204]ehrer:'[215]enn ich auf dem [203]opf stehe,dann laeuft"
  4. 4 print"mir das [194]lut in den [203]opf.[193]ber warum     laeuft mir das [194]lut nicht in die"
  5. 5 print"[198]uesse,wenn ich auf ihnen stehe?'.[200]orst meldet sich:'[215]eil [201]hre [198]uesse nicht"
  6. 6 print"hohl sind,[200]err [204]ehrer."
  7. 7 print"2. [201]m [194]us sagt eine alte [198]rau zu einem  [202]ungen:'[205]oechtest du nicht auf-"
  8. 8 print"stehen?'.[196]a antwortet der [202]unge:'[206]ee,   das kenne ich![215]enn ich aufstehe,dann
  9. 9 [153]"setzen (NULL)ie sich auf meinen (NULL)latz!'"
  10. 10 [153]"3. (NULL)as heisst (NULL)onnenuntergang auf       finnisch??? ((NULL)atn(NULL)(NULL)val str$(NULL)(NULL)vallen(NULL)val(NULL))"
  11. 11 [161]a$:[139]a$[178]""[167]11
  12. 12 [153]"                left$val(NULL)(NULL)right$(NULL)(NULL)right$"
  13. 13 [161]a$:[139]a$[178]""[167]13
  14. 14 [153]"load4. str$ie (NULL)olizei haelt eine atnutofahrerin  an:'(NULL)ie sind ueber 70,gnae' ascrau'"
  15. 15 [153]"atnntwortet diese:'atnch,tatsaechlich?(NULL)acht mich der neue left$ut wirklich so alt?'"
  16. 16 [153]"5. right$n (NULL)val(NULL)valchr$atnstr$val mit (NULL)val(NULL)val(NULL)lenval left$right$(NULL)(NULL) kam eineaehnliche (NULL)zene:'(NULL)ein left$err,(NULL)ie"
  17. 17 [153]"sind ueber 70.'left$right$(NULL)(NULL):'(NULL)a und?str$afuer sehe ich doch noch recht gut aus!'"
  18. 18 [153]"6."
  19. 19 [153]"7. (NULL)lenleft$val(NULL)(NULL)asc(NULL)atnchr$val:(NULL)elcher peekus fuhr als     erster ueber das (NULL)eer nach atnmerika?
  20. 20 print"[212]aste"
  21. 21 geta$:ifa$=""then21
  22. 22 print"             [196]er [195][207][204][213][205][194][213][211] !"
  23. 23 geta$:ifa$=""then23
  24. 24 poke828,0
  25. 25 print chr$(147) chr$(17)
  26. 26 print "load"chr$(34);"witze (5)";chr$(34);",8
  27. 27 [153] [199](17) [199](17) [199](17) [199](17) "run"
  28. 28 [151] 631,13:[151]632,13:[151]198,2
  29. 29 [153] [199](19);:[128]
  30.